If Else Statement in R Programming